在VBA编辑器的代码框里面输入以下程序：

Sub deleterows()

Dim i&, k&     '定义i，k为长整数

On Error Resume Next   '忽略运行过程中出现的错误

Application.ScreenUpdating = False  '关闭屏幕更新，以加快宏的执行速度

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表

k = 1

For i = 2 To 80000  '共执行这么多行

k = k + 1   '从第二行开始

If mysheet1.Cells(k, 1) = mysheet1.Cells(1, 6) Then '条件判断

mysheet1.Rows(k).Delete shift:=xlUp  '删除行

k = k - 1  '如果删除一行，则少一行

End If

Next

Application.ScreenUpdating = True  '开启屏幕更新

MsgBox "共删除：" & 80000 - k & "行"  '弹出提示

End Sub